Apple II Magazines (PO)/Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A)[a].zip/Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A)[a].po/PARADE.bas

BASIC Source File | 1996-12-24 | 640b | 2 lines

1  HGR : POKE 49234,0: FOR X = 0 TO 278: HCOLOR=  RND(1) *7: HPLOT X,0 TO  RND(1) *279, RND(1) *191: NEXT X: FOR Y = 0 TO 190: HCOLOR=  RND(1) *7: HPLOT X,Y TO  RND(1) *279, RND(1) *191: NEXT Y: FOR X = 279 TO 1  STEP  -1: HCOLOR=  RND(1) *7: HPLOT X,Y TO  RND(1) *279, RND(1) *191: NEXT X: FOR Y = 191 TO 0  STEP  -1
2  PRINT  CHR$(4)"PR#3": HCOLOR=  RND(1) *7: HPLOT X,Y TO  RND(1) *279, RND(1) *191: NEXT : POKE 49235,0: SPEED= 225: FOR X = 1 TO 32: HOME : HTAB X: VTAB 22: PRINT "  O          O": HTAB X: VTAB 23: PRINT "+-|-+";: INVERSE : PRINT "Nibble";: NORMAL : PRINT "+-|-+": HTAB X: VTAB 24: PRINT " / \        / \": NEXT : VTAB 1